home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 08 / 9 / DISK0895.ZIP / DEMOHELP.SRC < prev    next >
Text File  |  1987-04-07  |  6KB  |  233 lines
  1. ' This is the demonstration Help Menu
  2. ' SIMS (c) David Thomas Stewart 1984-1987
  3. ' Distributed by Synergy Development - THIS PROGRAM IS PUBLIC DOMAIN
  4.  
  5. screen(n)                       ' no colour burst here, please
  6.  
  7. normal                          ' nice quick border
  8. foreground(yellow)+
  9. setattr
  10. box(0,0)-(79,24),"▒"
  11. fill(1,16),"▒",78               ' and division line
  12.  
  13. foreground(red+)                ' text border box
  14. blink on
  15. setattr
  16. box(19,18)-(60,20),"░"
  17.  
  18. normal                          ' set field colours
  19. foreground(white+)
  20. background(blue)
  21. settime
  22. setdate
  23. normal
  24. setstat
  25. inverse
  26. setargue
  27.  
  28. stat(65,23)                     ' set field positions
  29. argue(27,22,40)
  30. date(2,1)
  31. time(65,1)
  32.  
  33. normal
  34. foreground(yellow)
  35. setattr
  36. .(5,2)"████▒   ████▒  ███████▒  ██████▒  █▒   █▒  ████▒  █▒      ██████▒"
  37. .(5,3)"█▒  █▒  █▒     █▒ █▒ █▒  █▒   █▒  █▒   █▒  █▒     █▒      █▒   █▒"
  38. .(5,4)"█▒  █▒  ████▒  █▒ █▒ █▒  █▒   █▒  ██████▒  ████▒  █▒      ██████▒"
  39. .(5,5)"█▒  █▒  █▒     █▒ █▒ █▒  █▒   █▒  █▒   █▒  █▒     █▒      █▒"
  40. .(5,6)"████▒   ████▒  █▒ █▒ █▒  ██████▒  █▒   █▒  ████▒  █████▒  █▒"
  41.  
  42. foreground(green+)              ' another title
  43. setattr
  44. .(28,8)"Help is Available For:"
  45.  
  46. option start                    ' actual OPTIONS
  47.  
  48. option(F1,13,10)" F1 - Return to DEMO Menu ","MENU DEMO"
  49. option(F3,13,11)" F3 - Video Demo Help ","NULL"
  50. option(F5,13,12)" F5 - Procedure Demo Help ","NULL"
  51. option(F7,13,13)" F7 - Security Demo Help ","NULL"
  52.  
  53. option(F2,45,10)" F2 - Create Menu Help","NULL"
  54. option(F4,45,11)" F4 - USER Menu Help","NULL"
  55. option(F6,45,12)" F6 - Execute DOS Command Help","NULL"
  56. option(F8,45,13)" F8 - Return to DOS 2.00 Help","NULL"
  57.  
  58. option end
  59.  
  60. proc(F1,select)                 ' select procedure F1
  61. inverse
  62. setattr
  63. fill(20,19)," ",40
  64. .(20,19)" Exit HELP and Return to DEMO Menu"
  65. normal
  66. setattr
  67. proc end
  68.  
  69. proc(F2,select)                 ' select procedure F2
  70. inverse
  71. setattr
  72. fill(20,19)," ",40
  73. .(20,19)" Give Help for Create Menu"
  74. normal
  75. setattr
  76. proc end
  77.  
  78. proc(F3,select)                 ' select procedure F3
  79. inverse
  80. setattr
  81. fill(20,19)," ",40
  82. .(20,19)" Give Help for Video Demonstration"
  83. normal
  84. setattr
  85. proc end
  86.  
  87. proc(F4,select)                 ' select procedure F4
  88. inverse
  89. setattr
  90. fill(20,19)," ",40
  91. .(20,19)" Give Help for USER Menu"
  92. normal
  93. setattr
  94. proc end
  95.  
  96. proc(F5,select)                 ' select procedure F5
  97. inverse
  98. setattr
  99. fill(20,19)," ",40
  100. .(20,19)" Give Help for Procedure Demonstration"
  101. normal
  102. setattr
  103. proc end
  104.  
  105. proc(F6,select)                 ' select procedure F6
  106. inverse
  107. setattr
  108. fill(20,19)," ",40
  109. .(20,19)" Give Help for Execute DOS Command"
  110. normal
  111. setattr
  112. proc end
  113.  
  114. proc(F7,select)                 ' select procedure F7
  115. inverse
  116. setattr
  117. fill(20,19)," ",40
  118. .(20,19)" Give Help for Security Demonstration"
  119. normal
  120. setattr
  121. proc end
  122.  
  123. proc(F8,select)                 ' select procedure F8
  124. inverse
  125. setattr
  126. fill(20,19)," ",40
  127. .(20,19)" Give Help for Return to DOS (EXIT)"
  128. normal
  129. setattr
  130. proc end
  131.  
  132. proc(F2,exec)                   ' exec procedure F2
  133. invisible
  134. setdate
  135. normal
  136. setattr
  137. field(0,0)-(79,24)
  138. .(0,0)"*** Help for Create Menu ***"
  139. .(10,4)"Create Menu is the menu that simplifies the creation,"
  140. .(10,5)"editing, converting, and debugging of sample menus -"
  141. .(10,6)"especially the USER menu."
  142. .(20,20)"PRESS ANY KEY TO CONTINUE"
  143. wait(any)
  144. proc end
  145.  
  146. proc(F3,exec)                   ' exec procedure F3
  147. invisible
  148. setdate
  149. normal
  150. setattr
  151. field(0,0)-(79,24)
  152. .(0,0)"*** Help for Video Demonstration ***"
  153. .(10,4)"The Video Demonstration is provided to give the designer"
  154. .(10,5)"a further understanding of the Video Control Commands in"
  155. .(10,6)"MCL and SIMS. It gives five separate demonstrations."
  156. .(20,20)"PRESS ANY KEY TO CONTINUE"
  157. wait(any)
  158. proc end
  159.  
  160. proc(F4,exec)                   ' exec procedure F4
  161. invisible
  162. setdate
  163. normal
  164. setattr
  165. field(0,0)-(79,24)
  166. .(0,0)"*** Help for USER Menu ***"
  167. .(10,4)'The USER Menu is a "fill in the blanks" menu.'
  168. .(10,5)"It allows total customization through the Create Menu."
  169. .(20,20)"PRESS ANY KEY TO CONTINUE"
  170. wait(any)
  171. proc end
  172.  
  173. proc(F5,exec)                   ' exec procedure F5
  174. invisible
  175. setdate
  176. normal
  177. setattr
  178. field(0,0)-(79,24)
  179. .(0,0)"*** Help for Procedure Demonstration ***"
  180. .(10,4)"The Procedure Demonstration is provided to give the designer"
  181. .(10,5)"additional insight in the workings of Procedure structure."
  182. .(10,6)"Three examples are given, as well as giving a SELECT procedure"
  183. .(10,7)"that tells the user what his OPTIONS are."
  184. .(20,20)"PRESS ANY KEY TO CONTINUE"
  185. wait(any)
  186. proc end
  187.  
  188. proc(F6,exec)                   ' exec procedure F6
  189. invisible
  190. setdate
  191. normal
  192. setattr
  193. field(0,0)-(79,24)
  194. .(0,0)"*** Help for Execute DOS Command ***"
  195. .(10,4)"This is an Argument that uses an EXEC Procedure to overlay"
  196. .(10,5)"text for the prompt, then it passes the user's input to a"
  197. .(10,6)"newly loaded command interpreter and executes it."
  198. .(20,20)"PRESS ANY KEY TO CONTINUE"
  199. wait(any)
  200. proc end
  201.  
  202. proc(F7,exec)                   ' exec procedure F7
  203. invisible
  204. setdate
  205. normal
  206. setattr
  207. field(0,0)-(79,24)
  208. .(0,0)"*** Help for Security Demonstration ***"
  209. .(10,4)"This Demonstration is provided to give the user a feel of"
  210. .(10,5)"passwords and security. The menu SPECIAL cannot be executed"
  211. .(10,6)"from DOS (it is LOCKed). The password for accessing this menu"
  212. .(10,7)"is 1984. If the user wishes to abort his password session then"
  213. .(10,8)"all he has to do is press the ESC key to exit back to the"
  214. .(10,9)"select mode of the current menu (SECURDEM)."
  215. .(20,20)"PRESS ANY KEY TO CONTINUE"
  216. wait(any)
  217. proc end
  218.  
  219. proc(F8,exec)                   ' exec procedure F8
  220. invisible
  221. setdate
  222. normal
  223. setattr
  224. field(0,0)-(79,24)
  225. .(0,0)"*** Help for Exit to DOS ***"
  226. .(10,4)"This option releases the 12k of memory reserved by SIMS and"
  227. .(10,5)"brings the user back to DOS."
  228. .(20,20)"PRESS ANY KEY TO CONTINUE"
  229. wait(any)
  230. proc end
  231.  
  232. end                             ' that's all folks
  233.